EnigmA Amiga Run 1995 October/EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso/Aminet/demo/sound/tp_austr.lha/Australia-install/ASCII-Edit/Examples/Scripts&ASCII/Menu.script

Text File | 1992-02-26 | 11KB | 582 lines

;This is a special version of the menu program!
;It is executed from/by the Poll.script

;define yes and no colours!
SET no
SET yes
SKIP INITIALIZE

LAB M1
ECHO NOLINE H
SET label M2
SKIP Menu1

LAB M2
SET label M3
SET question "Enter your choice (0 to Quit!)"
SKIP GetAnswer

LAB M3
SET label M4
IF VAL $answer EQ 0
  SKIP TheEnd
ELSE
  SET question "Enter your choice (0 to go back)"
  IF VAL $answer EQ 1
    ECHO "H[1|Graphics]H"
    SKIP Menu2
  ELSE
    IF VAL $answer EQ 2
      ECHO "H[2| Coding ]H"
      SKIP Menu3
    ELSE
      IF VAL $answer EQ 3
        ECHO "H[3|Writing ]H"
        SKIP Menu4
      ELSE
        ECHO "H[4| Music  ]H"
        SKIP Menu5
      ENDIF
    ENDIF
  ENDIF
ENDIF

LAB M4
ECHO NOLINE H
SET >NIL: Return ?
SET label M1
SKIP DELmenu1

ENDCLI


LAB Menu1
ECHO "[1|Graphics]"
ECHO "[2| Coding ]"
ECHO "[3|Writing ]"
ECHO "[4| Music  ]"
SKIP BACK $label

LAB Menu2
  ECHO "C[1|Raytracing]"
  ECHO "C[2| Painting ]"

  SET label2 $label
  SET label Menu2_
  SKIP GetAnswer

  LAB Menu2_
  IF VAL $answer EQ 0
    SET answer ""
    SET label M1
    SKIP DELmenu1
  ELSE
  IF VAL $answer EQ 1
    ECHO "C[1|Raytracing]"
    SKIP Menu6
  ELSE
    ECHO "BC[2| Painting ]"
    SKIP Menu7
  ENDIF
SKIP BACK $label



LAB Menu3
ECHO "BC$c1[1|Assembler ]  $c4[4| Serious ]"
ECHO "C$c2[2|  C(++)   ]  $c5[5|  Games  ]"
ECHO "C$c3[3|  Basic   ]  $c6[6|  Demos  ]"

SET label Menu3_
SKIP GetAnswer

LAB Menu3_
IF VAL $answer EQ 0
  SET label Menu3__
  SKIP DELmenu2
  LAB Menu3__
  SET answer 2
  SET label M1
  SKIP DELmenu1
ELSE
  ECHO H
  IF VAL $answer EQ 1
    IF $c1 EQ $yes
      SET c1 $no
    ELSE
      SET c1 $yes
    ENDIF
    ECHO "HC$c1[1|Assembler ]"
  ELSE
    IF VAL $answer EQ 2
      IF $c2 EQ $yes
        SET c2 $no
      ELSE
        SET c2 $yes
      ENDIF
      ECHO "HC$c2[2|  C(++)   ]"
    ELSE
      IF VAL $answer EQ 3
        IF $c3 EQ $yes
          SET c3 $no
        ELSE
          SET c3 $yes
        ENDIF
        ECHO "HC$c3[3|  Basic   ]"
      ELSE
        IF VAL $answer EQ 4
          IF $c4 EQ $yes
            SET c4 $no
          ELSE
            SET c4 $yes
          ENDIF
          ECHO "HC$c4[4| Serious ]"
        ELSE
          IF VAL $answer EQ 5
            IF $c5 EQ $yes
              SET c5 $no
            ELSE
              SET c5 $yes
            ENDIF
            ECHO "HC$c5[5|  Games  ]"
          ELSE
            IF VAL $answer EQ 6
              IF $c6 EQ $yes
                SET c6 $no
              ELSE
                SET c6 $yes
              ENDIF
              ECHO "HC$c6[6|  Demos  ]"
            ENDIF
          ENDIF
        ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF
SKIP GetAnswer


LAB Menu4
ECHO "BC$d1[1| Stories  ]"
ECHO "C$d2[2| Articles ]"
ECHO "C$d3[3| Reviews  ]"
ECHO "C$d4[4| Reports  ]"
ECHO "C$d5[5| Guides   ]"

SET label Menu4_
SKIP GetAnswer

LAB Menu4_
IF VAL $answer EQ 0
  SET answer 3
  SET label M1
  SKIP DELmenu1
ELSE
  ECHO H
  IF VAL $answer EQ 1
    IF $d1 EQ $yes
      SET d1 $no
    ELSE
      SET d1 $yes
    ENDIF
    ECHO "HC$d1[1| Stories  ]"
  ELSE
    IF VAL $answer EQ 2
      IF $d2 EQ $yes
        SET d2 $no
      ELSE
        SET d2 $yes
      ENDIF
      ECHO "HC$d2[2| Articles ]"
    ELSE
      IF VAL $answer EQ 3
        IF $d3 EQ $yes
          SET d3 $no
        ELSE
          SET d3 $yes
        ENDIF
        ECHO "HC$d3[3| Reviews  ]"
      ELSE
        IF VAL $answer EQ 4
          IF $d4 EQ $yes
            SET d4 $no
          ELSE
            SET d4 $yes
          ENDIF
          ECHO "HC$d4[4| Reports  ]"
        ELSE
          IF VAL $answer EQ 5
            IF $d5 EQ $yes
              SET d5 $no
            ELSE
              SET d5 $yes
            ENDIF
            ECHO "HC$d5[5| Guides   ]"
          ENDIF
        ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF
SKIP GetAnswer


LAB Menu5
ECHO "BC$e1[1| Tracker  ]"
ECHO "C$e2[2|  MIDI    ]"
ECHO "C$e3[3| Sampling ]"
ECHO "C$e4[4|Listening ]"

SET label Menu5_
SKIP GetAnswer

LAB Menu5_
IF VAL $answer EQ 0
  SET answer 4
  SET label M1
  SKIP DELmenu1
ELSE
  ECHO H
  IF VAL $answer EQ 1
    IF $e1 EQ $yes
      SET e1 $no
    ELSE
      SET e1 $yes
    ENDIF
    ECHO "HC$e1[1| Tracker  ]"
  ELSE
    IF VAL $answer EQ 2
      IF $e2 EQ $yes
        SET e2 $no
      ELSE
        SET e2 $yes
      ENDIF
      ECHO "HC$e2[2|  MIDI    ]"
    ELSE
      IF VAL $answer EQ 3
        IF $e3 EQ $yes
          SET e3 $no
        ELSE
          SET e3 $yes
        ENDIF
        ECHO "HC$e3[3| Sampling ]"
      ELSE
        IF VAL $answer EQ 4
          IF $e4 EQ $yes
            SET e4 $no
          ELSE
            SET e4 $yes
          ENDIF
          ECHO "HC$e4[4|Listening ]"
        ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF
SKIP GetAnswer


LAB Menu6
ECHO "C$a1[1|Lightwave]"
ECHO "C$a2[2| Real 3D ]"
ECHO "C$a3[3| Imagine ]"
ECHO "C$a4[4|Animation]"

SET label Menu6_
SKIP GetAnswer

LAB Menu6_
IF VAL $answer EQ 0
  SET answer 1
  SET label M3
  SKIP DELmenu2
ELSE
  ECHO H
  IF VAL $answer EQ 1
    IF $a1 EQ $yes
      SET a1 $no
    ELSE
      SET a1 $yes
    ENDIF
    ECHO "HC$a1[1|Lightwave]"
  ELSE
    IF VAL $answer EQ 2
      IF $a2 EQ $yes
        SET a2 $no
      ELSE
        SET a2 $yes
      ENDIF
      ECHO "HC$a2[2| Real 3D ]"
    ELSE
      IF VAL $answer EQ 3
        IF $a3 EQ $yes
          SET a3 $no
        ELSE
          SET a3 $yes
        ENDIF
        ECHO "HC$a3[3| Imagine ]"
      ELSE
        IF VAL $answer EQ 4
          IF $a4 EQ $yes
            SET a4 $no
          ELSE
            SET a4 $yes
          ENDIF
          ECHO "HC$a4[4|Animation]"
        ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF
SKIP GetAnswer


LAB Menu7
ECHO "C$b1[1|Animation]"
ECHO "C$b2[2|Realistic]"
ECHO "C$b3[3|  Manga  ]"
ECHO "C$b4[4| Comics  ]"

SET label Menu7_
SKIP GetAnswer

LAB Menu7_
IF VAL $answer EQ 0
  SET answer 1
  SET label M3
  SKIP DELmenu2
ELSE
  ECHO H
  IF VAL $answer EQ 1
    IF $b1 EQ $yes
      SET b1 $no
    ELSE
      SET b1 $yes
    ENDIF
    ECHO "HC$b1[1|Animation]"
  ELSE
    IF VAL $answer EQ 2
      IF $b2 EQ $yes
        SET b2 $no
      ELSE
        SET b2 $yes
      ENDIF
      ECHO "HC$b2[2|Realistic]"
    ELSE
      IF VAL $answer EQ 3
        IF $b3 EQ $yes
          SET b3 $no
        ELSE
          SET b3 $yes
        ENDIF
        ECHO "HC$b3[3|  Manga  ]"
      ELSE
        IF VAL $answer EQ 4
          IF $b4 EQ $yes
            SET b4 $no
          ELSE
            SET b4 $yes
          ENDIF
          ECHO "HC$b4[4| Comics  ]"
        ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF
SKIP GetAnswer



LAB DELmenu1
ECHO "HC              *nC               "
ECHO "C               *nC               *nC               "
ECHO "C               *nC               *nC               "
SKIP BACK $label

LAB DELmenu2
ECHO "HC              "
ECHO "C               *nC               *nC               "
ECHO "C               *nC               *nC               "
SKIP BACK $label



LAB GetAnswer
  ECHO NOLINE "H                                               H"
  ECHO NOLINE "$question: $answerD"
  SET >NIL: answer ?
  ECHO "H$questionH"
  IF VAL $answer EQ 0
    SET answer "0"
  ELSE
    IF VAL $answer GT 6
      SKIP BACK GetAnswer
    ENDIF
  ENDIF
SKIP BACK $label

LAB INITIALIZE
;initialize evironmental variables (flags 'yes' or 'no')
  ECHO "*ecH> Please tell what you use your Amiga for*n  (using the above menu-system)*n*n- Select an option by typing the corresponding number.*n- Select a suboption using the same method.*n- Enter a 0 to go back to the previous menu.*n- Enter 0 in main menu to quit."
  SET a1 $no
  SET a2 $no
  SET a3 $no
  SET a4 $no
  SET b1 $no
  SET b2 $no
  SET b3 $no
  SET b4 $no
  SET c1 $no
  SET c2 $no
  SET c3 $no
  SET c4 $no
  SET c5 $no
  SET c6 $no
  SET d1 $no
  SET d2 $no
  SET d3 $no
  SET d4 $no
  SET d5 $no
  SET e1 $no
  SET e2 $no
  SET e3 $no
  SET e4 $no
  SET answer 0
SKIP BACK M1

;a# = Graphics/Raytracing
;b# = Graphics/Painting
;c# = Coding


LAB TheEnd
ECHO NOLINE "H >>> Please Wait, Compiling Results...."
SET result1a "Raytracing:"
IF $a1 EQ $yes
  SET result1a "$result1a - Lightwave"
ENDIF
IF $a2 EQ $yes
  SET result1a "$result1a - Real 3D"
ENDIF
IF $a3 EQ $yes
  SET result1a "$result1a - Imagine"
ENDIF
IF $a4 EQ $yes
  SET result1a "$result1a - 3D Animation"
ENDIF
IF "$result1a" EQ "Raytracing:"
  SET result1a "No Raytracing."
ENDIF
ECHO NOLINE "...."

SET result1b "Painting:"
IF $b1 EQ $yes
  SET result1b "$result1b - Painted Animation"
ENDIF
IF $b2 EQ $yes
  SET result1b "$result1b - Realistic"
ENDIF
IF $b3 EQ $yes
  SET result1b "$result1b - Manga"
ENDIF
IF $b4 EQ $yes
  SET result1b "$result1b - Comics"
ENDIF
IF "$result1b" EQ "Painting:"
  SET result1b "No Painting."
ENDIF
ECHO NOLINE "...."

SET result2a "Coding Language:"
IF $c1 EQ $yes
  SET result2a "$result2a - Assembler"
ENDIF
IF $c2 EQ $yes
  SET result2a "$result2a - C"
ENDIF
IF $c3 EQ $yes
  SET result2a "$result2a - Basic"
ENDIF
IF "$result2a" EQ "Coding Language:"
  SET result2a "No Coding Language."
ENDIF
ECHO NOLINE "...."

SET result2b "Coding type:"
IF $c4 EQ $yes
  SET result2b "$result2b - Serious"
ENDIF
IF $c5 EQ $yes
  SET result2b "$result2b - Games"
ENDIF
IF $c6 EQ $yes
  SET result2b "$result2b - Demos"
ENDIF
IF "$result2b" EQ "Coding type:"
  SET result2b "No Coding Type."
ENDIF
ECHO NOLINE "...."

SET result3 "Writing:"
IF $d1 EQ $yes
  SET result3 "$result3 - Stories"
ENDIF
IF $d2 EQ $yes
  SET result3 "$result3 - Articles"
ENDIF
IF $d3 EQ $yes
  SET result3 "$result3 - Reviews"
ENDIF
IF $d4 EQ $yes
  SET result3 "$result3 - Reports"
ENDIF
IF $d5 EQ $yes
  SET result3 "$result3 - AmigaGuides"
ENDIF
IF "$result3" EQ "Writing:"
  SET result3 "No Writing."
ENDIF
ECHO NOLINE "...."

SET result4 "Music:"
IF $e1 EQ $yes
  SET result4 "$result4 - Tracker"
ENDIF
IF $e2 EQ $yes
  SET result4 "$result4 - MIDI"
ENDIF
IF $e3 EQ $yes
  SET result4 "$result4 - Sampling"
ENDIF
IF $e4 EQ $yes
  SET result4 "$result4 - Listening"
ENDIF
IF "$result4" EQ "Music:"
  SET result4 "No Music."
ENDIF
ECHO NOLINE "...."

ECHO >RAM:Text_Menu "This is what you do with/to your equipment?*n*n$result1a*n$result1b*n*n$result2a*n$result2b*n*n$result3*n*n$result4*n"
ECHO "*ecPlease check the following list carefully:*n"
TYPE RAM:Text_Menu
ECHO

LAB TheEnd_
ECHO NOLINE "*nIs the above correct? (Y/N) "
SET >NIL: answer ?
IF $answer EQ "Y"
  SET answer y
ELSE
  IF $answer EQ N
    SET answer n
  ELSE
    SKIP BACK TheEnd_
  ENDIF
ENDIF
IF $answer EQ n
  ECHO "*ec"
  SET answer ""
  SKIP BACK M1
ENDIF